#!/usr/local/bin/perl
use warnings;
sub main()
{
$i = 0;
 for($i = 0; ($i<2); $i = ($i+1)){ {
print "for loop \n";
}
} 

$i = 0;

 for(; ($i<2); $i = ($i+1)){ {
print "another for loop \n";
}
} 

$i = 0;

 for(; ($i<2); ){ {
print "and another for loop \n";
$i = ($i+1);
}
} 

 for(; ; ){ {
print "and another for loop again \n";
$i = ($i+1);
}
} 
}

print main();
